no- 



ENTRY OF RLE NUMBER AND/OR OTHER 
IDEI^nCATlON INFO, AND AMOUNT FOR 
CHECK. INTO REMOTE WORKSTATION 
AT LAW RRM 



112- 



114 



CHECK PRINTED ON WORKSTATION 
PRINTER. AND MAILiED TO PATENT 
AND TRADEMARK OFHCE 



PTO RECEIVES 
CHECK AND CASHES 
AGAINST BANK ACCOUNT 



120 



CENTRAL OFFICE 
DEPOSITS MONEY 
IN ACCOUNT OR 
OTHERWISE INSURE 
ADEQUATE FUNDS 
PRESENT 



126 
\ 




INFORMATION REGARDING 
CHECKS PRINTED UPLOADED 
TO CENTRAL OFnCE 
BY REMOTE WORKSTATION 



122- 



ELECTRONIC INVOICE GENERATED 
AND TRANSMIHED TO LAW RRM 
ACCOUNTING SYSTEM; PAPER 
INVOICE ALSO GENERATED 
BY WORKSTATION 



BANK SENDS TO 
CENTRAL OFRCE 

MONTHLY STATEMENT 
OF TRANSACTIONS 

TO CENTRAL OFRCE 




CENTRAL OFRCE RECONCILES 

MONTHLY STATEMENT WITH 
INFORMATION UPLOADED BY WS 



RG. 1A 
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CENTRAL OmC£ 
SENDS BILL TO 
LAW RRM FOR 
MONEY LOANED 
TO CLIENTS 



136 



BILL DUE 
IN 90 DAYS OR 
OTHER PERIOD 



146 
— S 



CENTRAL OmCE 
RECEIVES CLIENT'S 
PAYMENT FROM 
LAW RRM 



132 



EXAMINE 
SITUATION AND 
CORRECT 
ERRORS 



® 



138 

K 

SEND INVOICE 
TO CUENT (BY 
LAW RRM) AT 
END OF MONTH 
OR OTHER PERIOD 



140 

K 




INVOICE DUE 
IN 30 DAYS OR 
OTHER PERIOD 


142 




LAW RRM RECEIVES 
MONEY FROM 
CLIENT 


144 




LAW RRM SENDS 
PAYMENT TO 
■ CENTRAL OFFICE 
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210- 



ENTRY OF RLE NUMBER AND/OR OTHER 
iDENTinCATION INFO. AND REQUESTED 
AMOUNT INTO REMOTE WORKSTATION 



212H 



WORKSTATION ISSUES AUTHORIZATION 
CODE FOR DEBIT OF REQUESTED 
AMOUNT FROM DEPOSIT ACCOUNT 



213- 



214 



T 



TRANSMITTAL INCLUDING AUTHORIZATION 
CODE SEMT TO EPO/PCT 
(DEPOSIT ACCOUNT AUTHORIZAnON) 



EPO/PCT RECEIVES 
TRANSMIHAL AND DEBITS 
DEPOSIT ACCOUNT 



220 



CENTRAL OFFICE 
DEPOSITS MONEY 
IN ACCOUNT OR 
OTHERWISE INSURE 
ADEQUATE FUNDS 
PRESENT 



226 




INFORMATION REGARDING 
AUTHORIZATION UPLOADED 
TO CENTRAL OFRCE BY WS 



218- 



aECTRONiC INVOICE GENERATED 
AND TRANSMITTED TO LAW RRM 
ACCOUNTING SYSTEM; PAPER 
INVOICE ALSO GENERATED 
BY WORKSTATION 



CENTRAL OFFICE RECEIVES 
MONTHLY STATEMENT OF 
ACCOUNT DEBITS 
IDENTinED BY 
AUTHORiZATION CODE 




CENTRAL OFRCE RECONCILES 

MONTHLY STATEMENT WITH 
INFORMATION UPLOADED BY WS 



FIG. 2A 
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CENTRAL OmCE 
SENDS BILL TO 
LAW FIRM FOR 
MONEY LOANED 
TO CUENTS 



236 

4 



BILL DUE 
IN 90 DAYS OR 
OTHER PERIOD 



246 



CENTRAL OFFICE 
RECEIVES CUENT'S 
PAYMENT FROM 
. LAW RRM 



232 



EXAMINE 
SITUATION AND 
CORRECT 
ERRORS 



0 



238 

SEND INVOICE 
TO CUENT (BY 
LAW RRM) AT 
END OF MONTH 
OR OTHER PERIOD 



240 




INVOICE DUE 
IN 30 DAYS OR 
OTHER PERIOD 


242 




UW RRM RECEIVES 
MONEY FROM 
CUENT 


244 




IMi FIRM SENDS 

PAYMENT TO 
CENTRAL OFRCE 
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ENTRY OF RLE NUMBER AND/OR OTHER 
jlO J IDENTIFICATION INFO. AND AMOUNT FOR 
CHECK. INTO REMOTE WORKSTATION 
AT UW RRM 



WORKSTATION ELECTRONICALLY 
311 J CONTACTS CENTRAL OFRCE FOR 
CONRRMATiON/APPROVAL 



TO STEP 
120 OR 220 



TO STEP 
144 OR 214 



312^ 



WORKSTATION ISSUES CHECK 
OR AUTHORIZATION CODE 



313^ 



CODE OR CHECK SENT 
TO PATENT AGENCY 




TO STEP 
122 OR 222 



FIG. 3 



Page 71 of 99 



410 



LAW FIRM 



418 



ACCOUNTING/ 
BILUNG 
SYSTEM 



-422 



CHECK 
PRINTING/ 
AUTH. CODE 
SYSTEM 



? 

416 



434 



420 



412 



PATENT 
AND 
TRADEMARK 

PAYMENT 
FEE SYSTEM 



432 _ 



424 



426 
_i 



PATENT 
AGENCY 



428 



414 



430 
—1 



ACCOUNT 



PATENT AGENCY 
OR FINANCIAL 
INSTITUTION 



FIG. 4 
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July 22. 1997 Payee: U.S. Patent k TrodemarV Office 

Fee Code: 101/201 Bosic Filing Fee-Ulility 
Clienl Number. 00997 
MoUer Number xxxx 

Note: This requires specid attention. 






July 22. 1997 { 2.000.0 

Two Thousand AND 0/100 DOLLARS 
\}S. Potent & Trodermrk Office 




RG. 18 


PTO Management Company Invoice 
Invoice Dote: July 22, 1997 






Item: 

Check Number 1511 
From Account 

58-67-9785 - PTFM Checks for U.S. f*TO 
Request by: 

8rion Larson on: 07/22/1997 12:53:16 
aient Number 00997 Matter Number iotxx 
Note: This requires special ottenlion. 






Check Amount 
Fee: 


$ 2.000.0 
J 118.75 




Total Due 8y 09/20/1997: 


$ 2.118.75 




Discounted Total Due if Poid By 08/1 1/1997: 
Discounted Total Due If Paid By 08/11/1997: 


t 2.029.69 
$ 2.059.38 




RG. 19 



Deposit Account Authorization 


PTFII EPO Oejiosit Account 


.Account Nunit)er. XYZ234784 


Aulhorizotion Number: SLWK0002t023 




Date Fee Code 


Check Amount 


July 21 1997 sdhfsfd 


$ 300.0 


Poyee: European Patent Offlce 




Requested bf Brian Lorson 


on: 07/22/1997 12:44:18 


CBent NumtMr 00999 




Motter Hmber. sfgs 


Tee Assessed: I 6.75 



RG. 20 



PTO Managenr^ent Con^pony Invoice 
Invoice Date: Ju^ 22. 1997 


itein: 




Authorization Hmber. aWK00021023 " 




From ^count: 




XYZ234784 - PTFM EPO Deposit Account 




Request bf 




Bmn liorson on: 07/22/1997 12:53:16 




Cfient Numtier 00999 Motter Number mx 




Authorization Amount: 


$ 300.0 


Fee: 


$ 6.75 


Totd Due By 08/21/1997: 


$ 306.75 1 



RG. 21 



1 



o o o o 

CD CD O CD 

<=i d d d 

O CD CD O 

I?) o o 
%* •* <S 



1 §1 

i.S i 1 

<j *g Qi q> 

I- -s •- »-T 

4 3 41 

^ «= ^ ^ 

£ S £ £ 





s s s 


S 


CO OQ OO 

S o o 


£33 




CD O C3 


o 

CD 


000.00 
300.00 


CD 




$ 1.800.1 
$ 40OI 
$ 500.1 


d 


CD 

s 








CM 



§ 8 8 

S g ^ 

o o o 

a> 4> a> 



8 S 

11.S 

<i* o : — 

^ O 



I/) 2 



S ^ S ^ s: S i 

■r> o lo vr> o o < 



3^3 



I 



«S 6 O 



5 2 2 

6 8 S: £ 

CO ^ OO CO 

= ^ => = 

^ i 8 ^ 



to Jt; cA to 

-a* *— • ^ ^ 

^ O a> ^ 

Q_ f X= 

C_> Lj_I O CJ 



Q. a. a. Q. 



.1 .1 .i 
1 5 J 

111 

o o o 
o u u 

^ ^ ^ 

•"S ^ 

a s. s. 

<U OJ O) 

d o o 

£££ 

UJ LlJ LkJ 



B R 

CO CO y 
^ ^ Z- 

o g 

» o 
6 6 S3 

ill 



-e ^ 

Q. § ^ 

<u 3 3 



S S3 a = s 



j» -£ _«} 



r«- r«- r«- r** 

CT> O) CT> O) 

C7> <TJ cy> a> 



CS C5 Ct 



CM CNI > 
CM CM ' 
CM CM • 



I — r-. I — 

CT> g> 



^ UD U-> lO 
us 

O O O O 



CO 



_g r~- r-«. 
c CT» o> CT> 
c cT^ CT> cn 



CQ 

C=3 O O O O 

C3 O O C3 C3 
<=> O O C> <=> 



O C3 CD CD C3 
O O O O O 

o o »r> ro 



5 S o o o 
*if *kf 

O O Q O O 

6 e p e E 

<u at cj o a> 

■a -o -o -o 

o o S O 5 



4 i« <4I ^ 



a> o a> 

j« , 

o o o i 



3= 

o 



4> cj o> a> u 

a. Q- a. Q. a. 



<u <u o a> 

Q. Q. tX ~ 



if 



S S S 2 

to co lo CO ir> 



O O O CD O 



<J (J o o u 
aj ai cu 4j cu 

66 sad 



• 1 1 1 1 
3 3 S 3 3 



»— OJ ^ fO 

^ e>i ^ CM 

CN 



CM CM 

cv CM 5 »— <n 



22 2 



■t* 2* ^* 
o ^ « 



> as- ^ 



11 



i I 



cy> <T> o> 



r«» r»- 



u-> lO u-> ir> CM 



OO OO oo o> 
o> cn oi cr» 

s s s s s 



r*. i>» 

CT> O) CT> CT> 

0> 0> CT> 



i£2 ^2 l£2 CM 



Page 89 of 99 



Database: PTFH 

Structure for table: C:\PMCSOURCE\ACCOUNT.DBF 
Number of data records: 9 
Date of last update: 07/15/1997 
Code Page: 1252 



Field 


Field Name 




Type 






Width 


Dec 


Index Collate 


Nulls 


1 


AC CODE 




Character 






8 




Asc Machine 


No 


2 


AC NAME 




Character 






30 




Asc Machine 


No 


3 


AC CLIENTNUM. . 
10 




Character 


No 


4 


AC CLIBNTNAM. . 
50 




Character 


No 


5 


AC ACCOUNTNU. . 
20 




Character 


No 


6 


AC ACCOUNTTY. . 
18 




Character 


No 


7 


AC BALANCE 




Numeric 






12 


2 




No 


8 


AC NEXTCHECK 
10 




Numeric 


No 



** Total ** 

159 



Structure for table: 
Number of data records: 
Date of last update: 
Memo file block size: 
Code Page: 

Field Field Name 

Width Dec 

1 AT_TYPE 

18 

2 AT_KEEPBALAN. . 

1 

3 AT TRANSTYPE. . 

4 

4 AT PAYEES 
" 4 

5 AT CANEXCEED 

1 

6 AT_CHARGEFEE 

1 



C : \PMCSOURCE\ACCTTYPE . DBF 

9 

06/10/1997 
64 

1252 

Type 

Index Collate Nulls 
Character 

No 
No 
No 
No 
No 
No 



Logical 

Memo 

Memo 

Logical 

Logical 



FIG. 24 A 



7 


AT_CHECKONLy 
1 


Logical 


No 


8 


AT AUTHORIZA. . 
1 


Logical 


No 


9 


AT_USPTOCODE 
1 


Logical 


No 


10 


AT EPOCODE 
1 


Logical 


No 


11 


AT BXPORTTOP. . 
1 


Logical 


No 



** Total ** 



Structure for table: 
Number of data records: 
Date of last update: 
Code Page: 



C : \PMCSOURCB\CLI ENT . DBF 



Field 



Total ** 



Field Name 

Width 
CL^CLIENTNUM- 
10 

CL_NAME 

50 
CL_PLAN 

20 

81 



Structure for table: 
Number of data records: 
Date of last update: 
Memo file block size: 
Code Page: 

Field Field Name 
Width 

1 DE_CODE 

8 

2 DE_CLIENTNUM. 

20 

3 DE_MATTERNUM. 

20 • 

4 DE_DATETIME 

8 

5 DE_TRANSACTI . 

3 



06/20/1997 
1252 

Type 

Dec Index Collate 

Character 

Character 

Character 



Nulls 
No 
No 
No 



Dec 



C : \PMCSOURCE\DETAIL . DBF 

69 

07/15/1997 
64 

1252 

Type 
Index Collate 
Character 



Character 
Character 
DateTime 
Character 



Nulls 
No 
No 
No 
No 
No 



FIG. 24B 



6 


DE_PAYEE 
50 


Character 


No 


7 


DE_PTOCODE 
75 


Character 


No 


8 


DE_AMOUNT 

10 2 


Numeric 


No 


9 


DE_PLUSMINUS 
2 


Numeric 


No 


10 


DS_WHO 
25 


Character 


No 


11 


DE_LOCATION 
10 


Character 


No 


12 


•DE_CHECKNUMB. . 
10 


Numeric 


No 


13 


DE_NOTES 
4 


Memo 


No 


14 


DE_FEE1 

8 2 


Numeric 


No 


15 


DE_DATEDUE1 
8 


Date 


No 


16 


DE_PEE2 

8 2 


Numeric 


No 


17 


DE_DATEDUE2 
8 


Date 


No 


18 


DE FEE3 

""8 2 


Numeric 


No 


19 


DE DATEDUE3 
8 


Date 


No 


20 


DE STATUS 
17 


Character 


No 


21 


DE SEIjECTED 
^ 1 


Logical 


No 


22 


DE PRINTDATE . . 
8 


DateTime 


No 


23 


DE EXFORTDAT. . 
8 


DateTime 


No 



** Total ** 

328 



Structure for table: C:\PMCSOURCE\PTOCODE.DBF 
Number of data records: 149 
Date of last update: 05/16/1997 
Code Page: 1252 

Field Field Name Type 

Width Dec Index Collate Nulls 



FIG. 24C 



1 PT_OODE 

75 

2 PT USPTOCODE 

"~ 1 

** Total ** 

77 

Structure for table: 
Number of data records: 
Date of last update: 
Code Page: 

Field Field Name 
Width 

1 RA^PLAN 

20 

2 RA_LOWER£iIMI . . 

8 

3 RA_XJPPERLIMI . . 

8 

4 RA^DAYSDUEl 

3 

5 RA_AM0UNT1 

8 

6 RA_DAYSDUE2 

3 

7 RA_AM0UNT2 

8 

8 RA_DAYSDUE3 

3 

9 RA_AM0UNT3 

8 

10 RA_NOTALLOWE. . 
1 

** Total *♦ 

71 



Structure for tcd>le: 
Number of data records: 
Date of last update: 
Memo file block size: 
Code Page: 

Field Field Name 
Width 
1 SU_ITEM 
20 



Character 

No 

Logical 

No 



C : \PMCSOURCE\RATE . DBF 

48 

06/27/1997 
1252 





Type 




Dec 


Index Collate 


Nulls 




Character 








No 




Numeric 




2 




No 




Numeric 




2 




No 




Numeric 








No 




Numeric 




2 




No 




Numeric 








No 




Numeric 




2 




No 




Numeric 








No 




Numeric 




2 




No 




Logical 








No 



C: \PMCSOXJRCE\SETUP.DBF 

10 

07/22/1997 
64 

1252 

Type 

Dec Index Collate Nulls 

Character 

No 



FIG. 24D 



2 SU_NUMBER Numeric 

10 2 No 

3 SU_DATA Memo 

4 No 

** Total *♦ 

35 



Structure for table: C:\PMCSOURCB\TRANTYPE.DBF 

Number of data records: 6 
Date of last update: 06/10/1997 

Code Page: 1252 



Field 


Field Name 


Type 






Width Dec 


Index Collate 


Nulls 


1 


TR TRANSACTI . . 
3 


Character 


No 


2 


TR DESCRIPTI . . 
20 


Character 


. No 


3 


TR PLUSMINUS 
2 


Numeric 


No 


4 


TR CHKACCTYA. . 
1 


Logical 


No 


5 


TR AUTACCTVA. . 
1 


Logical 


No 


6 


TR CHKLIMITE. . 
1 


Logical 


No 


7 


TR AUTLIMITE. . 
1 


Logical 


No 


8 


TR CHARGEFEE 
1 


Logical 


No 



♦* Total ** 

31 

Structure for table: C:\PMCSOURCE\USER.DBF 
Number of data records: 1 
Date of last update: 05/02/1997 
Code Page: 1252 



Field 


Field Name 




Type 






Width 


Dec 


Index Collate 


Nulls 


1 


US ID 
20 




Character 


No 


2 


US LAST 
15 




Character 


No 


3 


US FIRST 
15 




Character 


No 


4 


US PASSWORD 
15 




Character 


No 
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5 


US_CHECKBALA. . 
1 


Logical 


No 


6 


US VIEWREQUE. . 
1 


Logical 


No 


7 


US_CREATEREQ. . 
1 


Logical 


No 


8 


US_CANCELREQ . . 
1 


Logical 


No 


9 


US_MODIFYACC. . 

' 1 


Logical 


No 


10 


US_PRINTREPO. . 
1 


Logical 


No 


11 


US EXTRACTDA. . 
1 


Logical 


No 



** Total ** 

73 



Program File: MAIN. PRO 

_SCREEN. Width =633 
^SCREEN, Height =418 
^SCREEN . Icon = " opening . ico " 

SET CENTURY ON 
SET BELL OFF 
SET CONFIRM ON 

SET DELETED ON 

SET MULTILOCKS ON 

SET PROCEDURE TO MAIN.PRG 

OPEN DATABASE PTFM 

PUBLIC fnnMenu, gcLoginID, gcFullName, gcLocation, gcProgName 

USE Setup 

SET ORDER TO- I tern 

IF SEEKC'PROGNAME") 

gcProgName = TRIM (Setup. SU_Data) 

_SCREEN. Caption = gcProgName 

ELSE 

gcProgName « "Patent & Trademark Fee Meuiagement" 
ENDIF 

IF SEBKCLOGINID") 

gcLoginID = TRIM (Setup. SU_Dat a) 

ELSE 

gcLoginID = "Unknown" 
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BNDIF 

IF SEEKCFULLNAME") 

gcFullName o TRIM (Setup. SU_Data) 

ELSE 

gcFullName « "Unknown" 

ENDIF 

IF SEEK ("LOCATION") 

gcLocation ~ TRIM (Setup. SU_Data) 

ELSE 

gcLocation « "Unknown" 

ENDIF 

CLOSE TABLES ALL 

DO FORM Menu NAME f rmMenu 

READ EVENTS 

************************************* 

FUNCTION GetDueDate 

* Finds the Monday which is the specified number of weeks after 

* the date the request was made. If the request was made on a 

* Monday, do not count that Monday. 
LPARAMETERS IdDate, InNumMondays 

Local InMondayCnt 

InMondayCnt = 0 

DO WHILE InMondayCnt < InNumMondays 
IdDate = IdDate + 1 
IF DOW(ldDate,2) « 1 

InMondayCnt = InMondayCnt + 1 

ENDIF 

ENDDO 

RETURN IdDate 

************************************* 

FUNCTION TextDollar 

PARAMETERS nNumber 

LOCAL InDollars, InCents 

InDollars = INT (nNumber) 

InCents ° (nNumber - InDollars) * 100 
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RETURN TextNuraeric(lnDollars)+"AND ''+STR(lnCents, 2) + VIOO 
DOLLARS" 

************************************* 

FUNCTION TextNumeric 

PARAMETERS nNumber 

LOCAL IcString, InWorkNutnber 

InWorkNumber = nNumber 
IcString = 

IF InWorkNutnber >= 1000000 

IcString = TextNumeric (InWorkNumber/lOO 0000) + "Million " 

InWorkNumber = InWorkNumber - 
(INTdnWorkNuniber/lOOOOOO) *1000000) 
ENDIF 

IF InWorkNumber >« 1000 

IcString « IcString + TextNumeric (lnWorkNumber/1000) + 
"Thousand " 

InWorkNumber = InWorkNumber - (INT (InWorkNumber/lOOO) * 1000) 

ENDiF 

DO CASE 

CASE InWorkNumber >= 900 

IcString = IcString + "Nine Hundred " 

InWorkNumber = InWorkNumber - 900 
CASE InWorkNumber >= 800 

IcString = IcString + "Eight Hundred " 

InWorkNumber = InWorkNumber - 800 
CASE InWorkNumber >= 700 

IcString = IcString + "Seven Hundred " 

InWorkNumber = InWorkNumber - 700 
CASE InWorlcNumber 600 

IcString = IcString + "Six Hundred " 

InWorkNumber = InWorkNumber - 600 
CASE InWorkNumber >» 500 

IcString « IcString + "Five Hundred " 

InWorkNumber = InWorkNumber - 500 
CASE InWorkNumber >» 400 

IcString = IcString + "Four Hundred " 

InWorkNumber = InWorkNumber - 400 
CASE InWorkNumber >= 300 

IcString = IcString + "Three H\indred " 

InWorkNumber = InWorkNumber - 300 
CASE InWorkNumber >= 200 
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IcString = IcString + "Two Hundred 
InWorkNumber = InWorkNumber - 200 

CASE InWorkNumber >= 100 

IcString « IcString + "One Hundred 
InWorkNumber = InWorkNumber - 100 

ENDCASE 

DO CASE 

CASE InWorkNumber >= 90 

IcString = IcString + "Ninety " 
InWorkNumber = InWorkNumber - 90 

CASE InWorkNumber >= 80 

IcString = IcString + "Eighty " 
InWorlcNumber = InWorkNumber - 80 

CASE InWorkNumber >= 70 

IcString « IcString + "Seventy " 
InWorkNumber a InWorkNumber - 70 

CASE InWorkNumber >» 60 

IcString « IcString + "Sixty " 
InWorkNumber = InWorkNumber - 60 

CASE InWorkNumber >= 50 

IcString = IcString + "Fifty " 
InWorkNumber = InWorkNumber - 50 

CASE InWorkNumber >= 40 

IcString = IcString + "Forty " 
InWorkNumber = InWorkNumber - 40 

CASE InWorkNumber >^ 30 

IcString « IcString + "Thirty " 
InWorkNumber = InWorkNumber - 30 

CASE InWorkNumber >« 20 

IcString = IcString + "Twenty " 
InWorkNumber = InWorkNumber - 20 

CASE InWorkNumber >= 19 

IcString « IcString + "Nineteen " 
InWorkNumber = InWorkNumber - 19 

CASE InWorkNumber >- 18 

IcString = IcString + "Eighteen *» 
InWorkNumber = InWorkNumber - 18 

CASE InWorJcNumber >= 17 

IcString = IcString + "Seventeen " 
InWorkNumber = InWorkNumber - 17 

CASE InWorkNumber >= 16 

IcString = IcString + "Sixteen " 
InWorkNumber = InWorkNumber - 16 - 

CASE InWorkNumber >= 15 

IcString = IcString + "Fifteen " 
InWorkNumber = InWorkNumber - 15 
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CASE InWorkNumber >= 14 

IcString = IcString + "Fourteen " 
InWorkNumber = InWorkNuraber - 14 

CASE InWorkNumber >= 13 

IcString = IcString + "Thirteen " 
InWorkNumber = InWorJcNutnber - 13 

CASE InWorkNumber >= 12 

IcString = IcString + "Twelve " 
InWorkNumber = InWorkNumber - 12 

CASE InWorkNumber >= 11 

IcString = IcString + "Eleven " 
InWorkNumber = InWorkNumber - 11 

CASE InWorkNumber 10 

IcString = IcString + "Ten " 
InWorkNumber = InWorlcNumber - 10 

ENDCASE 

DO CASE 

CASE InWorkNumber >« 9 

IcString « IcString + "Nine " 
InWorkNumber = InWorkNiimber - 9 

CASE InWorkNumber 8 

IcString = IcString + "Eight " 
InWorkNumber = InWorkNumber - 8 

CASE InWorkNumber >= 7 

IcString = IcString + "Seven " 
InWorkNumber = InWorkNumber - 7 

CASE InWorkNumber >= 6 

IcString = IcString + "Six " 
InWorkNumber = InWorkNumber - 6 

CASE InWorkNumber 5 

IcString » IcString + "Five ■ 
InWorkNumber o InWorkNumber - 5 

CASE InWorkNumber >n 4 

IcString = IcString + "Four ■ 
InWorkNumber = InWorkNumber - 4 

CASE InWorkNuraber >= 3 

IcString = IcString + "Three " 
InWorkNumber » InWorkNumber - 3 

CASE InWorkNumber 2 

IcString = IcString + "Two " 
InWorkNumber = InWorkNumber - 2- 

CASE InWorkNuraber >= 1 

IcString = IcString + "One " 
InWorkNumber = InWorkNumber - 1 

ENDCASE 
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IF EMPTY (IcString) 
IcString = "No 

ENDIF 

RETURN IcString 
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